home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / 1312.ZIP / NETLOGON.MT < prev    next >
Text File  |  1988-07-29  |  1KB  |  41 lines
  1.     { netlogon.mt - perform logon to the infonet network videotex center }
  2.  
  3.     { send CRs until we get a response from the network }
  4.     loop 8
  5.         type CR
  6.         wait 4
  7.             case '#'
  8.                 break
  9.             case '*'
  10.                 branch reqService
  11.         endwait
  12.  
  13.         at_end_do
  14.             message 'PAD not responding with #'
  15.             quit
  16.     endloop
  17.  
  18.     { request X.3 pad service }
  19.     type 'x' CR
  20.     wait 100
  21.         case '*'            { success }
  22.             { do nothing }
  23.         failure
  24.             message 'PAD not responding with *'
  25.             quit
  26.     endwait
  27.  
  28. reqService:                 { request connection to VCC }
  29.     type '.vmt' CR          
  30.  
  31.     { wait for connection }
  32.     wait 600
  33.         case '^_IS^Q'                   { wait till the prompt }
  34.             type userid password        { send network userid and password }
  35.         case 'CLR', 'ERR'
  36.             message 'Unable to connect to network service'
  37.         failure                         { timeout or line dropped }
  38.             message 'User ID prompt not received'
  39.     endwait
  40.     end
  41.